Assuming that the mode line format contains the string \"Emacs:\", this
function replaces the string by \"Vi: \" etc."])
(fset 'vip-mode #[nil "¼├┴┬├!ê─ ê┼╞!cêebê╟╚!½Ñ╔╩!!èqêdbê═cê╬ ê)╧!ê╨╤!ê╥╙!ê)╧p!ê╨╘!ê╒ ç" [vip-inhibit-startup-message t switch-to-buffer "VIP Startup Message" erase-buffer substitute-command-keys "VIP is a VI emulation package for GNU Emacs.VIP provides most \nVI and EX commands.The important differences from VI are:\n 1. VI EXIT functions (e.g. :wq) work on INDIVIDUAL files.\n 2. \"ZZ\" and ^X^C EXITS EMACS.\n 3. \"u\" will undo. Repeat undo by \".\". Another u changes direction.\n 5. ^X will invoke emacs functions; ^Z will toggle vi/emacs modes.\n 6. Emacs Meta functions are invoked by \"_\" instead of ESC.\n 7. Try ^C,^G repeatedly and \\[abort-recursive-edit] if something strange happens. \nYou can get more information on VIP by:\n 1. Typing `M-x info' and selecting menu item \"vip\".\n 2. Printing VIP manual which can be found as GNU/man/vip.texinfo\n 3. Printing VIP Reference Card which can be found as GNU/etc/vipcard.tex\nUltimate compatibilty: Execute vip-become-vi. Emacs is suppressed.\n \nThis startup message appears whenever you load VIP unless you type `y' now.\nType `n' to quit this window for now.\n" y-or-n-p "Inhibit VIP startup message? " find-file-noselect substitute-in-file-name vip-custom-file-name buf "\n(setq vip-inhibit-startup-message t)\n" save-buffer kill-buffer message "VIP startup message inhibited." sit-for 2 "" vip-change-mode-to-vi] 3 "\
(fset 'vip-describe-arg #[(arg) "└ë├!┼!\n¼Ä ¼à╞╟!¬ö╞╚ \"¬Ä ¼å╞╔\n\"¬à╞╩\n #*ç" [nil com val vip-P-val arg vip-getcom message "Value is nil, and commmand is nil." "Value is nil, and command is %c." "Value is %d, and command is nil." "Value is %d, and command is %c."] 4])
Function called by ], the ket. View registers and call ]]" "P"])
(fset 'vip-brac-function #[(arg) "└ ë┬U½å├!éτ ┼U½å╞!éτ╟ Xâ▀ ╚Xâ▀╔ ╩Z!ë¼ê╠═╬ \"!¬ä╧!╤!╙╙è╪┘!qêed|ê½∩½δèqê┌e\"Tbê█yê▄▌╙▐#½å█yê`bê▀yêα▌╙▐#½å╙ê`{═ß█ZO Z╙O$)═Γ π!$cê═Σ #cê¬å═σ \"cêebê)µ┘!.¬ê╠═τ( #!)ç" [read-char reg 91 vip-prev-heading arg 93 vip-heading-end 97 122 get-register 96 val error format "Textmarker %c does not point anywhere" marker-buffer buf marker-position pos nil line-no text s e get-buffer-create "*Output*" count-lines 0 re-search-backward "[^ ]" t 1 re-search-forward "%s<%c>%s" "Textmarker %c is in buffer %s at line %d.\n" buffer-name "Here is some text around %c:\n\n %s" "Textmarker %c not set anywhere" display-buffer "Invalid Command %c%c" last-command-char] 8 "\
Function called by [, the brac. View textmarkers and call [[" "P"])
execute ex command using the value of addresses."])
(byte-code "└┴Mê┬├Mç" [vip-undisplayed-files #[nil "└┴┬ \"ç" [mapcar #[(b) "└ !?¡ƒ┬ !ë½â¬ö¡æ┼ !ë╟╚O╔ÿ?¡é))ç" [get-buffer-window b buffer-file-name f ex-cycle-through-non-files buffer-name s 0 1 " "] 4] buffer-list] 3] ex-args #[nil "└ ┴`┬├─ ë\n½₧\n@½æ╦╠ \n@$ T\nAë\n¼b ┴ÿ½à═╬!¬¥╧Äè╨cê╤ ╤▒ê╥cê╙cê═╘!ê`╒ *.ç" [vip-undisplayed-files "" nil 1 buffer-modified-p modified file-count end-point insert-point args l format "%s %d) %s" message "All files are displayed" ((byte-code " |ê┬!ç" [insert-point end-point set-buffer-modified-p modified] 2)) "\n\nThese files are not displayed in any window." "\n=============\n" "The numbers can be given as counts to :next. " "Press any key to continue.\n\n" "Undisplayed files. Press any key to continue" read-char] 7]] 2)
(fset 'ex-read #[nil "└ ê ¼â`¬é @ëbê\n├U¼ä─┼!ê├yê¼Æ╚ÿ½î ¼ä╩╦!ê ½ç═╬\"¬ä╧!)ç" [vip-get-ex-file ex-addresses point 0 next-line 1 ex-variant ex-file "" buffer-file-name error "No file specified" ex-cmdfile shell-command t insert-file] 4 "\
ex read"])
(fset 'ex-recover #[nil "└ ê ¼â\n½ä├─!ê╞ÿ½ì¼ä├╚!ê¬ä╔!╟ ÿ¼î╩ ½ê¼ä├╠!ê═!ç" [vip-get-ex-file ex-append ex-offset error "Illegal extra characters" ex-file "" buffer-file-name "No file associated with this buffer" expand-file-name buffer-modified-p ex-variant "No write since last change (:rec! overrides)" recover-file] 2 "\
ex recover from emacs #file#"])
(fset 'ex-rewind #[nil "└┴!ç" [message ":n can count the :args list now. :rewind is obsolete"] 2 "\
No rewind really. Instead tell about :next count"])